Option Explicit
Sub P_Sample031()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\" & "P_Test1.txt"      'Nɮ
    If myFso.FileExists(FileSpec:=myName) Then
    MsgBox myName & "sbC"
    Else
    MsgBox myName & "sbC"
    End If
    Set myFso = Nothing                                    '
End Sub
